home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / AMOSList0597 / AMOSLIST / text0044.txt < prev    next >
Encoding:
Text File  |  1997-06-01  |  1.3 KB  |  53 lines
  1. On 10-Mai-97 Hakan Venderlof wrote:
  2.  
  3. >>Pen 1
  4. >>locate 1,1 : Print"AAA"
  5. >>locate 1,2 : Print"BBB"
  6. >>Now I want the text to be rewritten with Pen 2
  7. >>only when the pointer is over it.
  8. >>I did find some ways to do it but the text always flickers...
  9.  
  10. Try:
  11.  
  12. Reserve Zone 2
  13.  
  14. Pen 1
  15. Locate 1,1 : Print Zone$("AAA",1)
  16. Locate 1,2 : Print Zone$("BBB",2)
  17.  
  18. Do
  19.   MZ=Mouse Zone
  20.  
  21.   If MZ=1
  22.     Pen 2 : Locate 1,1 : Print Zone$("AAA",1)
  23.     Repeat
  24.       If Mouse Key=1 Then DO-ANYTHING
  25.     Until Mouse Zone<>MZ
  26.     Pen 1 : Locate 1,1 : Print Zone$("AAA",1)
  27.   End If
  28.  
  29.   If MZ=2
  30.     Pen 2 : Locate 1,2 : Print Zone$("BBB",2)
  31.     Repeat
  32.       If Mouse Key=1 Then DO-ANYTHING-ELSE
  33.     Until Mouse Zone<>MZ
  34.     Pen 1 : Locate 1,2 : Print Zone$("BBB",2)
  35.   End if
  36. Loop
  37.  
  38.  
  39. Greets, Lonestar.
  40.  
  41. -- 
  42. -------------------------------------------------------------------------
  43. # #### #   # #####  ########### #   ####   ODIN ENTERTAINMENT PRODUCTIONS
  44. # #  # ##  #       #       #   # #  #   #
  45. # #### # # # #####  ###    #  #   # ####       STAR FILM PRODUCTIONS
  46. #      #  ##           #   #  ##### #   #
  47. ###### #   # ##### ####    #  #   # #   #    STAR BBS  +49/09225/95332
  48. -------------------------------------------------------------------------
  49. EMAIL: LONESTAR@KULMBACH.BAYNET.DE -- WEB: WWW.KULMBACH.BAYNET.DE/~KX0010
  50. -------------------------------------------------------------------------
  51.  
  52.  
  53.